home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43b.d64 / raster m.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  138 lines
  1. 0 ; (null)ASTER-(null)ASTER 0.11 31.10.1988
  2. 1 ; (C) 1988 BY  (null) LEN
  3. 2 ;
  4. 3 .GL BILD      = $1B    ;AN
  5. 4 .EQ ZEILE1    = $26
  6. 5 .EQ ZEILE2    = ZEILE1+2
  7. 6 .EQ NORMAL    = 14
  8. 7 ;
  9. 8 .GL IRQVECT   = $0314
  10. 9 ;
  11. 10 .GL VICCTRL1  = $D011  ;(null)RIGHT$LEN-CONTROL-REG.
  12. 11 .GL RASTER    = $D012
  13. 12 .GL IRQFLAGS  = $D019
  14. 13 .EQ IRQMASKS  = $D01A
  15. 14 .EQ BORDER    = $D020
  16. 15 ;
  17. 16 .EQ CIA1ICR   = $DC0D
  18. 17 ;
  19. 18 .EQ OLDIRQ    = $EA31
  20. 19 .EQ IRQRET    = $EA7E
  21. 20 ;
  22. 21 ;***** (null)AKROS *****
  23. 22 .MA SETIRQ (ZEILE)
  24. 23  LDA#BILD!O!((ZEILE/2)!A!$80)
  25. 24  STAVICCTRL1
  26. 25  LDA#<(ZEILE)
  27. 26  STARASTER
  28. 27  LDA#$FF;LOESCHEN
  29. 28  STAIRQFLAGS
  30. 29 .RT
  31. 30 ;
  32. 31 .MA SETVECT (ROUT)
  33. 32  LDA#<(ROUT)
  34. 33  LDY#>(ROUT)
  35. 34  STAIRQVECT
  36. 35  STYIRQVECT+1
  37. 36 .RT
  38. 37 ;
  39. 38 ;+++++ (null)TARTADRESSE +++++
  40. 39 ;
  41. 40  .BA$9000
  42. 41 ;
  43. 42  JMPINIT
  44. 43  JMPAUS
  45. 44 ;
  46. 45 ;***** (null)ORBEREITUNG *****
  47. 46 INIT SEI
  48. 47 ; (null)IMER-RIGHT$(null)(null) VERHINDERN
  49. 48  LDA#$7F
  50. 49  STACIA1ICR
  51. 50 ; (null)ASTER-RIGHT$(null)(null) ERLAUBEN
  52. 51  LDA#$01
  53. 52  STAIRQMASKS
  54. 53 ;
  55. 54  ...SETVECT(ROUT)
  56. 55  ...SETIRQ(ZEILE1)
  57. 56  CLI
  58. 57 ;
  59. 58  RTS
  60. 59 ;
  61. 60 ;***** VALNDE *****
  62. 61 AUS SEI
  63. 62 ; (null)ASTER-RIGHT$(null)(null) VERHINDERN
  64. 63  LDA#$00
  65. 64  STAIRQMASKS
  66. 65 ; (null)IMER-RIGHT$(null)(null) ERLAUBEN
  67. 66  LDA#$81
  68. 67  STACIA1ICR
  69. 68  ...SETVECT(OLDIRQ)
  70. 69 ;
  71. 70  CLI
  72. 71  RTS
  73. 72 ;
  74. 73 ;***** RIGHT$RQ-(null)OUTINEN *****
  75. 74 ;
  76. 75 TOOLATE JMPIRQRET
  77. 76 ;
  78. 77 ;----- GRUENER (null)TRICH = '(null)ASTER-(null)ASTER'
  79. 78 ;
  80. 79 ROUT LDA#<(ZEILE2)
  81. 80  CMPRASTER
  82. 81  BCCTOOLATE
  83. 82  BEQTOOLATE
  84. 83 ;
  85. 84 WZEILE CMPRASTER
  86. 85  BNEWZEILE
  87. 86 ;
  88. 87  LDX#10
  89. 88 WARTE1 DEX
  90. 89  BNEWARTE1
  91. 90 ;
  92. 91  NOP
  93. 92  LDARASTER;59-66
  94. 93  CMP#<(ZEILE2+1)
  95. 94  BEQOK1
  96. 95  BIT$AA
  97. 96  NOP
  98. 97 ; 68-71
  99. 98 OK1 LDX#9
  100. 99 WARTE2 DEX
  101. 100  BNEWARTE2
  102. 101 ;
  103. 102  NOP
  104. 103  NOP
  105. 104  NOP
  106. 105  LDARASTER;124-127
  107. 106  CMP#<(ZEILE2+2)
  108. 107  BEQOK2
  109. 108  BIT$AA
  110. 109 ; 131-132
  111. 110 OK2 LDX#10
  112. 111 WARTE3 DEX
  113. 112  BNEWARTE3
  114. 113 ;
  115. 114  NOP
  116. 115  LDARASTER;188-189
  117. 116  CMP#<(ZEILE2+3)
  118. 117  BNEOK3
  119. 118 ; 194!
  120. 119 ;---------
  121. 120 OK3 LDX#3
  122. 121 WARTE4 DEX
  123. 122  BNEWARTE4
  124. 123 ;
  125. 124  NOP
  126. 125  NOP
  127. 126  NOP
  128. 127  LDA#0
  129. 128  STABORDER
  130. 129  LDA#NORMAL
  131. 130  STABORDER
  132. 131 ;
  133. 132  LDA#$FF
  134. 133  STAIRQFLAGS
  135. 134  JMPOLDIRQ
  136. 135 ;
  137. 136 ;+ + + + +   VAL (null) STR$ VAL   + + + + +
  138.